﻿Public Class frmClass
    Dim Code As New Generator.Generic_Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.PropertyGrid1.SelectedObject = code
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        frmCodeUnit.ShowDialog()

    End Sub
End Class


Public Class Test
    Public Property Fake As WeekDays


    <Flags()>
    Public Enum WeekDays
        Monday = 1
        Tusday = 2
        Wednesday = 4
        Thursday = 8
        Friday = 16
        Saterday = 32
        Sunday = 64
    End Enum



End Class